home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / nslock15 / frmregis.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-02-03  |  3.9 KB  |  127 lines
  1. VERSION 5.00
  2. Object = "{ADD24EDC-ADC1-11D2-95D1-F7A835DD4948}#3.0#0"; "nslock15vb5.ocx"
  3. Begin VB.Form frmRegister 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Please, register !"
  6.    ClientHeight    =   2910
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   5100
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2910
  14.    ScaleWidth      =   5100
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin nslock15vb5.ActiveLock ActiveLock1 
  17.       Left            =   120
  18.       Top             =   2280
  19.       _ExtentX        =   847
  20.       _ExtentY        =   820
  21.       Password        =   "PASSWORD"
  22.       SoftwareName    =   "Trialware Sample"
  23.       LiberationKeyLength=   16
  24.       SoftwareCodeLength=   16
  25.    End
  26.    Begin VB.CommandButton cmdCancel 
  27.       Cancel          =   -1  'True
  28.       Caption         =   "Cancel"
  29.       Height          =   375
  30.       Left            =   3960
  31.       TabIndex        =   8
  32.       Top             =   2400
  33.       Width           =   975
  34.    End
  35.    Begin VB.CommandButton cmdRegister 
  36.       Caption         =   "Register"
  37.       Default         =   -1  'True
  38.       Height          =   375
  39.       Left            =   2880
  40.       TabIndex        =   7
  41.       Top             =   2400
  42.       Width           =   975
  43.    End
  44.    Begin VB.TextBox Text2 
  45.       Height          =   285
  46.       Left            =   2640
  47.       TabIndex        =   6
  48.       Text            =   "Text2"
  49.       Top             =   1920
  50.       Width           =   2295
  51.    End
  52.    Begin VB.TextBox Text1 
  53.       BackColor       =   &H8000000F&
  54.       Height          =   285
  55.       Left            =   2640
  56.       Locked          =   -1  'True
  57.       TabIndex        =   5
  58.       Text            =   "Text1"
  59.       Top             =   1560
  60.       Width           =   2295
  61.    End
  62.    Begin VB.Label Label5 
  63.       Caption         =   "Liberation key:"
  64.       Height          =   255
  65.       Left            =   1320
  66.       TabIndex        =   4
  67.       Top             =   1920
  68.       Width           =   1095
  69.    End
  70.    Begin VB.Label Label4 
  71.       Caption         =   "Software code:"
  72.       Height          =   255
  73.       Left            =   1320
  74.       TabIndex        =   3
  75.       Top             =   1560
  76.       Width           =   1095
  77.    End
  78.    Begin VB.Label Label3 
  79.       Caption         =   "Users should register in order to use the software for a longer period."
  80.       Height          =   255
  81.       Left            =   120
  82.       TabIndex        =   2
  83.       Top             =   1080
  84.       Width           =   4815
  85.    End
  86.    Begin VB.Label Label2 
  87.       Caption         =   "The program is fully functional, but it will stop working after 21 days. (Try to change the time settings in your computer)"
  88.       Height          =   495
  89.       Left            =   120
  90.       TabIndex        =   1
  91.       Top             =   480
  92.       Width           =   4815
  93.    End
  94.    Begin VB.Label Label1 
  95.       Caption         =   "This sample shows how to create ""trialware"" using ActiveLock."
  96.       Height          =   255
  97.       Left            =   120
  98.       TabIndex        =   0
  99.       Top             =   120
  100.       Width           =   4815
  101.    End
  102. Attribute VB_Name = "frmRegister"
  103. Attribute VB_GlobalNameSpace = False
  104. Attribute VB_Creatable = False
  105. Attribute VB_PredeclaredId = True
  106. Attribute VB_Exposed = False
  107. Option Explicit
  108. Private Sub cmdCancel_Click()
  109.   Calculator.Caption = "Calculator evaluation"
  110.   Unload Me
  111. End Sub
  112. Private Sub cmdRegister_Click()
  113.   ' Set the LiberationKey:
  114.   ActiveLock1.LiberationKey = Text2
  115.   ' Check if it was correct:
  116.   If Not (ActiveLock1.RegisteredUser) Then
  117.     MsgBox "Invalid liberation key!"
  118.   Else
  119.     MsgBox "Thank you for registering!"
  120.     Unload Me
  121.   End If
  122. End Sub
  123. Private Sub Form_Load()
  124.   Text1 = ActiveLock1.SoftwareCode
  125.   Text2 = ""
  126. End Sub
  127.